home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FishMarket 1.0
/
FishMarket v1.0.iso
/
fishies
/
326-350
/
disk_338
/
sastools
/
bigcli
/
bigcli.mod
< prev
next >
Wrap
Text File
|
1992-05-06
|
1KB
|
36 lines
(***************************************************************************
* Programme : BigCLI.mod *
* Usage : BigCLI *
* Version : V1.20 *
* Date : 01.05.1989 *
* Author : Jörg Sixt *
* Purpose : Set height & width of the active (CLI-)window to maximum *
* Language : Modula-2,AMSoft PD-Version from Fish 113 *
* Bugs : *
***************************************************************************)
MODULE BigCLI ;
FROM Intuition IMPORT OpenIntuition,IntuitionBase,SizeWindow,MoveWindow,
ScreenPtr,WindowPtr ;
VAR IntBasePtr : POINTER TO IntuitionBase ;
CLIWinPtr : WindowPtr ;
WBScrnPtr : ScreenPtr ;
BEGIN
IntBasePtr := OpenIntuition ();
CLIWinPtr := IntBasePtr^.activeWindow;
WBScrnPtr := IntBasePtr^.activeScreen;
IF (CLIWinPtr # NIL) THEN
MoveWindow ( CLIWinPtr,
-(CLIWinPtr^.leftEdge),
-(CLIWinPtr^.topEdge ));
SizeWindow ( CLIWinPtr,
(WBScrnPtr^.width - CLIWinPtr^.width),
(WBScrnPtr^.height - CLIWinPtr^.height));
END ;
END BigCLI .